home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 5 / Gold Medal Software - Volume 5 (Gold Medal) (1995).iso / database / cardx135.arj / LABELS.PRT < prev    next >
Text File  |  1993-11-20  |  2KB  |  24 lines
  1.  ;__ Prints 3 accross X 11 down self-adhesive labels on 8 1/2" X 11" sheets __  
  2.                                 ;LaserJet III printer commands.                 
  3.  #27 69#                        ;Reset printer.                                 
  4.  #27 &l2A#                      ;Letter size paper.                             
  5.  #27 &l6D#                      ;60 lines per inch.                             
  6.  #27 (s0P#                      ;Fixed spacing.                                 
  7.  #27 (s12H#                     ;12 CPI.                                        
  8.  #27 &l1E#                      ;Top margin = 1.                                
  9.  TRIM(26)                       ;Lines after trimmed to (n) length.             
  10.  ;Do ten times Down on a page.                                                  
  11.  ;Do three times across on a page at the Column numbers.                        
  12.  ;Last number is Right margin.                                                  
  13.  ;DO(Down on a page, Column #1, Column #29, Column #57, Right margin)           
  14.  ;DO(            10,        01,         29,         57,           79)           
  15.                                                                                 
  16.  DO(10, 01, 34, 67, 95)         ;Start DO loop.                                 
  17.    01 FNAME ' ' LNAME           ;First name, space and Last name.               
  18.    02 ADDRESS                   ;P. O. Box.                                     
  19.    03 STREET                    ;Street address.                                
  20.    04 TOWN ', ' STATE '. ' ZIP  ;City, State and Zip code.                      
  21.    06                           ;Last line of label.                            
  22.  ENDDO                          ;End of DO loop.                                
  23. ;#27 69#                        ;Reset printer.                                 
  24.